home *** CD-ROM | disk | FTP | other *** search
/ Just Call Me Internet / Just Call Me Internet.iso / com / computer / sharp112 / bas / token.bas
Encoding:
BASIC Source File  |  1994-07-07  |  345 b   |  12 lines
  1. 5 INPUT "STARTADR:";S
  2. 10 FOR I=S TO &FFFF
  3. 11 IF PEEK I<>77 THEN NEXT I
  4. 12 IF PEEK (I+1)<>65 THEN NEXT I
  5. 13 IF PEEK (I+2)<>82 THEN NEXT I
  6. 14 IF PEEK (I+3)<>75 THEN NEXT I
  7. 15 IF PEEK (I+4)<>69 THEN NEXT I
  8. 20 BEEP 3:PRINT "ADRESSE:",I:S=I:INPUT "STARTCODE:";C
  9. 25 FOR N=C TO 255:POKE I+15,N
  10. 30 "MARKE":PRINT (STR$ N)+":::"
  11. 35 NEXT N:END 
  12.